home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / Controls.p < prev    next >
Encoding:
Text File  |  1998-02-12  |  81.1 KB  |  1,916 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Controls.p
  3.  
  4.      Contains:    Control Manager interfaces
  5.  
  6.      Version:    Technology:    Mac OS 8.1
  7.                  Release:    Universal Interfaces 3.1
  8.  
  9.      Copyright:    © 1985-1998 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT Controls;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __CONTROLS__}
  28. {$SETC __CONTROLS__ := 1}
  29.  
  30. {$I+}
  31. {$SETC ControlsIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __MACTYPES__}
  35. {$I MacTypes.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __QUICKDRAW__}
  38. {$I Quickdraw.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __MENUS__}
  41. {$I Menus.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __TEXTEDIT__}
  44. {$I TextEdit.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __DRAG__}
  47. {$I Drag.p}
  48. {$ENDC}
  49. {$IFC UNDEFINED __ICONS__}
  50. {$I Icons.p}
  51. {$ENDC}
  52.  
  53.  
  54. {$PUSH}
  55. {$ALIGN MAC68K}
  56. {$LibExport+}
  57.  
  58.  
  59. CONST
  60.     _ControlDispatch            = $AA73;
  61.  
  62.  
  63. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  64. {    • Resource Types                                                                                    }
  65. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  66.     kControlDefProcType            = 'CDEF';
  67.     kControlTemplateResourceType = 'CNTL';
  68.     kControlColorTableResourceType = 'cctb';
  69.     kControlDefProcResourceType    = 'CDEF';
  70.     kControlTabListResType        = 'tab#';                        {  used for tab control (Appearance 1.0 and later) }
  71.     kControlListDescResType        = 'ldes';                        {  used for list box control (Appearance 1.0 and later) }
  72.  
  73. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  74. {    • Format of a ‘CNTL’ resource                                                                        }
  75. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  76.  
  77. TYPE
  78.     ControlTemplatePtr = ^ControlTemplate;
  79.     ControlTemplate = RECORD
  80.         controlRect:            Rect;
  81.         controlValue:            SInt16;
  82.         controlVisible:            BOOLEAN;
  83.         fill:                    SInt8;
  84.         controlMaximum:            SInt16;
  85.         controlMinimum:            SInt16;
  86.         controlDefProcID:        SInt16;
  87.         controlReference:        SInt32;
  88.         controlTitle:            Str255;
  89.     END;
  90.  
  91.     ControlTemplateHandle                = ^ControlTemplatePtr;
  92.  
  93.  
  94. {$IFC NOT TARGET_OS_MAC }
  95. {
  96.   —————————————————————————————————————————————————————————————————————————————————————————————————————————
  97.    • NON-MAC COMPATIBILITY CODES (QuickTime 3.0)
  98.   —————————————————————————————————————————————————————————————————————————————————————————————————————————
  99. }
  100.     ControlNotification                    = UInt32;
  101.  
  102. CONST
  103.     controlNotifyNothing        = 'nada';                        {  No (null) notification }
  104.     controlNotifyClick            = 'clik';                        {  Control was clicked }
  105.     controlNotifyFocus            = 'focu';                        {  Control got keyboard focus }
  106.     controlNotifyKey            = 'key ';                        {  Control got a keypress }
  107.  
  108.  
  109. TYPE
  110.     ControlCapabilities                    = UInt32;
  111.  
  112. CONST
  113.     kControlCanAutoInvalidate    = $00000001;                    {  Control component automatically invalidates areas left behind after hide/move operation. }
  114.  
  115. {  procID's for our added "controls" }
  116.     staticTextProc                = 256;                            {  static text }
  117.     editTextProc                = 272;                            {  editable text }
  118.     iconProc                    = 288;                            {  icon }
  119.     userItemProc                = 304;                            {  user drawn item }
  120.     pictItemProc                = 320;                            {  pict }
  121.  
  122. {$ENDC}
  123.  
  124. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  125. {    • ControlHandle                                                                                        }
  126. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  127.  
  128. TYPE
  129.     ControlRecordPtr = ^ControlRecord;
  130.     ControlPtr                            = ^ControlRecord;
  131.     ControlHandle                        = ^ControlPtr;
  132. {  ControlRef is obsolete. Use ControlHandle.  }
  133.     ControlRef                            = ControlHandle;
  134.     ControlPartCode                        = SInt16;
  135. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  136. { • Control ActionProcPtr                                                                                }
  137. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  138. {$IFC TYPED_FUNCTION_POINTERS}
  139.     ControlActionProcPtr = PROCEDURE(theControl: ControlHandle; partCode: ControlPartCode);
  140. {$ELSEC}
  141.     ControlActionProcPtr = ProcPtr;
  142. {$ENDC}
  143.  
  144.     ControlActionUPP = UniversalProcPtr;
  145. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  146. {    • ControlRecord                                                                                        }
  147. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  148.     ControlRecord = PACKED RECORD
  149.         nextControl:            ControlHandle;
  150.         contrlOwner:            WindowPtr;
  151.         contrlRect:                Rect;
  152.         contrlVis:                UInt8;
  153.         contrlHilite:            UInt8;
  154.         contrlValue:            SInt16;
  155.         contrlMin:                SInt16;
  156.         contrlMax:                SInt16;
  157.         contrlDefProc:            Handle;
  158.         contrlData:                Handle;
  159.         contrlAction:            ControlActionUPP;
  160.         contrlRfCon:            SInt32;
  161.         contrlTitle:            Str255;
  162.     END;
  163.  
  164. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  165. { • Control ActionProcPtr : Epilogue                                                                    }
  166. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  167.  
  168. CONST
  169.     uppControlActionProcInfo = $000002C0;
  170.  
  171. FUNCTION NewControlActionProc(userRoutine: ControlActionProcPtr): ControlActionUPP;
  172.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  173.     INLINE $2E9F;
  174.     {$ENDC}
  175.  
  176. PROCEDURE CallControlActionProc(theControl: ControlHandle; partCode: ControlPartCode; userRoutine: ControlActionUPP);
  177.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  178.     INLINE $205F, $4E90;
  179.     {$ENDC}
  180. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  181. {    • Control Color Table                                                                                }
  182. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  183.  
  184. CONST
  185.     cFrameColor                    = 0;
  186.     cBodyColor                    = 1;
  187.     cTextColor                    = 2;
  188.     cThumbColor                    = 3;
  189.     kNumberCtlCTabEntries        = 4;
  190.  
  191.  
  192. TYPE
  193.     CtlCTabPtr = ^CtlCTab;
  194.     CtlCTab = RECORD
  195.         ccSeed:                    SInt32;
  196.         ccRider:                SInt16;
  197.         ctSize:                    SInt16;
  198.         ctTable:                ARRAY [0..3] OF ColorSpec;
  199.     END;
  200.  
  201.     CCTabPtr                            = ^CtlCTab;
  202.     CCTabHandle                            = ^CCTabPtr;
  203. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  204. {    • Auxiliary Control Record                                                                            }
  205. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  206.     AuxCtlRecPtr = ^AuxCtlRec;
  207.     AuxCtlRec = RECORD
  208.         acNext:                    Handle;
  209.         acOwner:                ControlHandle;
  210.         acCTable:                CCTabHandle;
  211.         acFlags:                SInt16;
  212.         acReserved:                SInt32;
  213.         acRefCon:                SInt32;
  214.     END;
  215.  
  216.     AuxCtlPtr                            = ^AuxCtlRec;
  217.     AuxCtlHandle                        = ^AuxCtlPtr;
  218. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  219. {    • PopUp Menu Private Data Structure                                                                    }
  220. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  221.     PopupPrivateDataPtr = ^PopupPrivateData;
  222.     PopupPrivateData = RECORD
  223.         mHandle:                MenuHandle;
  224.         mID:                    SInt16;
  225.     END;
  226.  
  227.     PopupPrivateDataHandle                = ^PopupPrivateDataPtr;
  228.  
  229. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  230. {    • Errors are in the range -30580 .. -30599                                                            }
  231. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  232.  
  233. CONST
  234.     errMessageNotSupported        = -30580;
  235.     errDataNotSupported            = -30581;
  236.     errControlDoesntSupportFocus = -30582;
  237.     errWindowDoesntSupportFocus    = -30583;
  238.     errUnknownControl            = -30584;
  239.     errCouldntSetFocus            = -30585;
  240.     errNoRootControl            = -30586;
  241.     errRootAlreadyExists        = -30587;
  242.     errInvalidPartCode            = -30588;
  243.     errControlsAlreadyExist        = -30589;
  244.     errControlIsNotEmbedder        = -30590;
  245.     errDataSizeMismatch            = -30591;
  246.     errControlHiddenOrDisabled    = -30592;
  247.     errWindowRegionCodeInvalid    = -30593;
  248.     errCantEmbedIntoSelf        = -30594;
  249.     errCantEmbedRoot            = -30595;
  250.     errItemNotControl            = -30596;
  251.  
  252. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  253. {    • Control Definition ID’s                                                                            }
  254. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  255. {  Standard System 7 procIDs }
  256.  
  257.     pushButProc                    = 0;
  258.     checkBoxProc                = 1;
  259.     radioButProc                = 2;
  260.     scrollBarProc                = 16;
  261.     popupMenuProc                = 1008;
  262.  
  263.  
  264. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  265. {    • Control Types and ID’s available only with Appearance 1.0 and later                                }
  266. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  267.  
  268.     kControlSupportsNewMessages    = ' ok ';                        {  CDEF should return as result of kControlMsgTestNewMsgSupport }
  269.  
  270. { focusing part codes }
  271.     kControlFocusNoPart            = 0;                            {  tells control to clear its focus }
  272.     kControlFocusNextPart        = -1;                            {  tells control to focus on the next part }
  273.     kControlFocusPrevPart        = -2;                            {  tells control to focus on the previous part }
  274.  
  275.  
  276. TYPE
  277.     ControlFocusPart                    = SInt16;
  278. { Key Filter result codes                                                             }
  279. {                                                                                    }
  280. { Certain controls can have a keyfilter attached to them. The filter proc should    }
  281. { return one of the two constants below. If kKeyFilterBlockKey is returned, the    }
  282. { key is blocked and never makes it to the control. If kKeyFilterPassKey is        }
  283. { returned, the control receives the keystroke.                                    }
  284.  
  285. CONST
  286.     kControlKeyFilterBlockKey    = 0;
  287.     kControlKeyFilterPassKey    = 1;
  288.  
  289.  
  290. TYPE
  291.     ControlKeyFilterResult                = SInt16;
  292. {——————————————————————————————————————————————————————————————————————————————————————}
  293. {     SPECIAL FONT USAGE NOTES: You can specify the font to use for many control types.
  294.     The constants below are meta-font numbers which you can use to set a particular
  295.     control's font usage. There are essentially two modes you can use: 1) default,
  296.     which is essentially the same as it always has been, i.e. it uses the system font, unless
  297.     directed to use the window font via a control variant. 2) you can specify to use
  298.     the big or small system font in a generic manner. The Big system font is the font
  299.     used in menus, etc. Chicago has filled that role for some time now. Small system
  300.     font is currently Geneva 10. The meta-font number implies the size and style.
  301.     
  302.     NOTE:        Not all font attributes are used by all controls. Most, in fact, ignore
  303.                 the fore and back color (Static Text is the only one that does, for
  304.                 backwards compatibility). Also size, face, and addFontSize are ignored
  305.                 when using the meta-font numbering.
  306. }
  307. {——————————————————————————————————————————————————————————————————————————————————————}
  308.  
  309. CONST
  310.                                                                 {  Meta-font numbering - see not above  }
  311.     kControlFontBigSystemFont    = -1;                            {  force to big system font }
  312.     kControlFontSmallSystemFont    = -2;                            {  force to small system font }
  313.     kControlFontSmallBoldSystemFont = -3;                        {  force to small bold system font }
  314.  
  315. { Add these masks together to set the flags field of a ControlFontStyleRec    }
  316. { They specify which fields to apply to the text. It is important to make    }
  317. { sure that you specify only the fields that you wish to set.                }
  318.     kControlUseFontMask            = $0001;
  319.     kControlUseFaceMask            = $0002;
  320.     kControlUseSizeMask            = $0004;
  321.     kControlUseForeColorMask    = $0008;
  322.     kControlUseBackColorMask    = $0010;
  323.     kControlUseModeMask            = $0020;
  324.     kControlUseJustMask            = $0040;
  325.     kControlUseAllMask            = $00FF;
  326.     kControlAddFontSizeMask        = $0100;
  327.  
  328.  
  329. TYPE
  330.     ControlFontStyleRecPtr = ^ControlFontStyleRec;
  331.     ControlFontStyleRec = RECORD
  332.         flags:                    SInt16;
  333.         font:                    SInt16;
  334.         size:                    SInt16;
  335.         style:                    SInt16;
  336.         mode:                    SInt16;
  337.         just:                    SInt16;
  338.         foreColor:                RGBColor;
  339.         backColor:                RGBColor;
  340.     END;
  341.  
  342.     ControlFontStylePtr                    = ^ControlFontStyleRec;
  343. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  344. {    • Common data tags for Get/SetControlData                                                            }
  345. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  346.  
  347. CONST
  348.     kControlFontStyleTag        = 'font';
  349.     kControlKeyFilterTag        = 'fltr';
  350.  
  351.  
  352. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  353. {    • Control Feature Bits                                                                                }
  354. {——————————————————————————————————————————————————————————————————————————————————————————————————————}
  355.                                                                 {  Control feature bits - returned by GetControlFeatures  }
  356.     kControlSupportsGhosting    = $01;
  357.     kControlSupportsEmbedding    = $02;
  358.     kControlSupportsFocus        = $04;
  359.     kControlWantsIdle            = $08;
  360.     kControlWantsActivate        = $10;
  361.     kControlHandlesTracking        = $20;
  362.     kControlSupportsDataAccess    = $40;
  363.     kControlHasSpecialBackground = $80;
  364.     kControlGetsFocusOnClick    = $0100;
  365.     kControlSupportsCalcBestRect = $0200;
  366.     kControlSupportsLiveFeedback = $0400;
  367.  
  368. { Features introduced in Appearance 1.0.1 }
  369.     kControlHasRadioBehavior    = $0800;
  370.  
  371. { Control Messages }
  372.     kControlMsgDrawGhost        = 13;
  373.     kControlMsgCalcBestRect        = 14;                            {  Calculate best fitting rectangle for control }
  374.     kControlMsgHandleTracking    = 15;
  375.     kControlMsgFocus            = 16;                            {  param indicates action. }
  376.     kControlMsgKeyDown            = 17;
  377.     kControlMsgIdle                = 18;
  378.     kControlMsgGetFeatures        = 19;
  379.     kControlMsgSetData            = 20;
  380.     kControlMsgGetData            = 21;
  381.     kControlMsgActivate            = 22;
  382.     kControlMsgSetUpBackground    = 23;
  383.     kControlMsgCalcValueFromPos    = 26;
  384.     kControlMsgTestNewMsgSupport = 27;                            {  See if this control supports new messaging }
  385.  
  386. { Messages in Appearance 1.0.1 or later}
  387.     kControlMsgSubValueChanged    = 25;
  388.     kControlMsgSubControlAdded    = 28;
  389.     kControlMsgSubControlRemoved = 29;
  390.  
  391. {——————————————————————————————————————————————————————————————————————————————————————}
  392. {     This structure is passed into a CDEF when called with the kControlMsgHandleTracking    }
  393. {    message                                                                             }
  394. {——————————————————————————————————————————————————————————————————————————————————————}
  395.  
  396. TYPE
  397.     ControlTrackingRecPtr = ^ControlTrackingRec;
  398.     ControlTrackingRec = RECORD
  399.         startPt:                Point;
  400.         modifiers:                SInt16;
  401.         action:                    ControlActionUPP;
  402.     END;
  403.  
  404.     ControlTrackingPtr                    = ^ControlTrackingRec;
  405. {——————————————————————————————————————————————————————————————————————————————————————}
  406. { This structure is passed into a CDEF when called with the kControlMsgKeyDown message }
  407. {——————————————————————————————————————————————————————————————————————————————————————}
  408.     ControlKeyDownRecPtr = ^ControlKeyDownRec;
  409.     ControlKeyDownRec = RECORD
  410.         modifiers:                SInt16;
  411.         keyCode:                SInt16;
  412.         charCode:                SInt16;
  413.     END;
  414.  
  415.     ControlKeyDownPtr                    = ^ControlKeyDownRec;
  416. {——————————————————————————————————————————————————————————————————————————————————————}
  417. { This structure is passed into a CDEF when called with the kControlMsgGetData or        }
  418. { kControlMsgSetData message                                                             }
  419. {——————————————————————————————————————————————————————————————————————————————————————}
  420.     ControlDataAccessRecPtr = ^ControlDataAccessRec;
  421.     ControlDataAccessRec = RECORD
  422.         tag:                    ResType;
  423.         part:                    ResType;
  424.         size:                    Size;
  425.         dataPtr:                Ptr;
  426.     END;
  427.  
  428.     ControlDataAccessPtr                = ^ControlDataAccessRec;
  429. {——————————————————————————————————————————————————————————————————————————————————————}
  430. { This structure is passed into a CDEF when called with the kControlCalcBestRect msg     }
  431. {——————————————————————————————————————————————————————————————————————————————————————}
  432.     ControlCalcSizeRecPtr = ^ControlCalcSizeRec;
  433.     ControlCalcSizeRec = RECORD
  434.         height:                    SInt16;
  435.         width:                    SInt16;
  436.         baseLine:                SInt16;
  437.     END;
  438.  
  439.     ControlCalcSizePtr                    = ^ControlCalcSizeRec;
  440. {——————————————————————————————————————————————————————————————————————————————————————}
  441. { This structure is passed into a CDEF when called with the kControlMsgSetUpBackground }
  442. { message is sent                                                                        }
  443. {——————————————————————————————————————————————————————————————————————————————————————}
  444.     ControlBackgroundRecPtr = ^ControlBackgroundRec;
  445.     ControlBackgroundRec = RECORD
  446.         depth:                    SInt16;
  447.         colorDevice:            BOOLEAN;
  448.     END;
  449.  
  450.     ControlBackgroundPtr                = ^ControlBackgroundRec;
  451. {——————————————————————————————————————————————————————————————————————————————————————}
  452. { This structure is passed into a CDEF when called with the kControlMsgApplyTextColor    }
  453. { message is sent                                                                        }
  454. {——————————————————————————————————————————————————————————————————————————————————————}
  455.     ControlApplyTextColorRecPtr = ^ControlApplyTextColorRec;
  456.     ControlApplyTextColorRec = RECORD
  457.         depth:                    SInt16;
  458.         colorDevice:            BOOLEAN;
  459.         active:                    BOOLEAN;
  460.     END;
  461.  
  462.     ControlApplyTextColorPtr            = ^ControlApplyTextColorRec;
  463. {——————————————————————————————————————————————————————————————————————————————————————}
  464. {    Key Filter                                                                            }
  465. {                                                                                        }
  466. { Definition of a key filter for intercepting and possibly changing keystrokes            }
  467. { which are destined for a control                                                        }
  468. {——————————————————————————————————————————————————————————————————————————————————————}
  469. {$IFC TYPED_FUNCTION_POINTERS}
  470.     ControlKeyFilterProcPtr = FUNCTION(theControl: ControlHandle; VAR keyCode: SInt16; VAR charCode: SInt16; VAR modifiers: SInt16): ControlKeyFilterResult;
  471. {$ELSEC}
  472.     ControlKeyFilterProcPtr = ProcPtr;
  473. {$ENDC}
  474.  
  475.     ControlKeyFilterUPP = UniversalProcPtr;
  476.  
  477. CONST
  478.     uppControlKeyFilterProcInfo = $00003FE0;
  479.  
  480. FUNCTION NewControlKeyFilterProc(userRoutine: ControlKeyFilterProcPtr): ControlKeyFilterUPP;
  481.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  482.     INLINE $2E9F;
  483.     {$ENDC}
  484.  
  485. FUNCTION CallControlKeyFilterProc(theControl: ControlHandle; VAR keyCode: SInt16; VAR charCode: SInt16; VAR modifiers: SInt16; userRoutine: ControlKeyFilterUPP): ControlKeyFilterResult;
  486.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  487.     INLINE $205F, $4E90;
  488.     {$ENDC}
  489. {——————————————————————————————————————————————————————————————————————————————————————}
  490. {    • BEVEL BUTTON INTERFACE (CDEF 2)                                                    }
  491. {——————————————————————————————————————————————————————————————————————————————————————}
  492. {    Bevel buttons allow you to control the content type (pict/icon/etc.), the behavior    }
  493. { (pushbutton/toggle/sticky), and the bevel size. You also have the option of            }
  494. {    attaching a menu to it. When a menu is present, you can specify which way the         }
  495. {    popup arrow is facing (down or right).                                                }
  496. {                                                                                        }
  497. {    This is all made possible by overloading the Min, Max, and Value parameters for the    }
  498. {    control, as well as adjusting the variant. Here's the breakdown of what goes where:    }
  499. {                                                                                        }
  500. {    Parameter                    What Goes Here                                            }
  501. {    ———————————————————            ————————————————————————————————————————————————————    }
  502. {    Min                            Hi Byte = Behavior, Lo Byte = content type.                }
  503. {    Max                            ResID for resource-based content types.                    }
  504. {    Value                        MenuID to attach, 0 = no menu, please.                    }
  505. {                                                                                        }
  506. {    The variant is broken down into two halfs. The low 2 bits control the bevel type.    }
  507. {    Bit 2 controls the popup arrow direction (if a menu is present) and bit 3 controls    }
  508. {    whether or not to use the control's owning window's font.                            }
  509. {                                                                                        }
  510. {    Constants for all you need to put this together are below. The values for behaviors    }
  511. {    are set up so that you can simply add them to the content type and pass them into    }
  512. {    the Min parameter of NewControl.                                                    }
  513. {                                                                                        }
  514. {    An example call:                                                                    }
  515. {                                                                                        }
  516. {    control = NewControl( window, &bounds, "\p", true, 0, kContentIconSuiteRes +         }
  517. {                            kBehaviorToggles, myIconSuiteID, bevelButtonSmallBevelProc,    }
  518. {                            0L );                                                        }
  519. {                                                                                        }
  520. {    Attaching a menu:                                                                    }
  521. {                                                                                        }
  522. {    control = NewControl( window, &bounds, "\p", true, kMyMenuID, kContentIconSuiteRes,    }
  523. {            myIconSuiteID, bevelButtonSmallBevelProc + kBevelButtonMenuOnRight, 0L );    }
  524. {                                                                                        }
  525. {    This will attach menu ID kMyMenuID to the button, with the popup arrow facing right.}
  526. {    This also puts the menu up to the right of the button. You can also specify that a    }
  527. {    menu can have multiple items checked at once by adding kBehaviorMultiValueMenus        }
  528. {    into the Min parameter. If you do use multivalue menus, the GetBevelButtonMenuValue    }
  529. {    helper function will return the last item chosen from the menu, whether or not it    }
  530. {    was checked.                                                                        }
  531. {                                                                                        }
  532. {    NOTE:     Bevel buttons with menus actually have *two* values. The value of the         }
  533. {            button (on/off), and the value of the menu. The menu value can be gotten    }
  534. {            with the GetBevelButtonMenuValue helper function.                            }
  535. {                                                                                        }
  536. {    Handle-based Content                                                                }
  537. {    ————————————————————                                                                }
  538. {    You can create your control and then set the content to an existing handle to an    }
  539. {    icon suite, etc. using the macros below. Please keep in mind that resource-based    }
  540. {    content is owned by the control, handle-based content is owned by you. The CDEF will}
  541. {    not try to dispose of handle-based content. If you are changing the content type of    }
  542. {    the button on the fly, you must make sure that if you are replacing a handle-        }
  543. {    based content with a resource-based content to properly dispose of the handle,        }
  544. {    else a memory leak will ensue.                                                        }
  545. {                                                                                        }
  546.  
  547. CONST
  548.                                                                 {  Bevel Button Proc IDs  }
  549.     kControlBevelButtonSmallBevelProc = 32;
  550.     kControlBevelButtonNormalBevelProc = 33;
  551.     kControlBevelButtonLargeBevelProc = 34;
  552.  
  553.                                                                 {  Bevel button graphic alignment values  }
  554.     kControlBevelButtonAlignSysDirection = -1;                    {  only left or right }
  555.     kControlBevelButtonAlignCenter = 0;
  556.     kControlBevelButtonAlignLeft = 1;
  557.     kControlBevelButtonAlignRight = 2;
  558.     kControlBevelButtonAlignTop    = 3;
  559.     kControlBevelButtonAlignBottom = 4;
  560.     kControlBevelButtonAlignTopLeft = 5;
  561.     kControlBevelButtonAlignBottomLeft = 6;
  562.     kControlBevelButtonAlignTopRight = 7;
  563.     kControlBevelButtonAlignBottomRight = 8;
  564.  
  565.  
  566. TYPE
  567.     ControlButtonGraphicAlignment        = SInt16;
  568.  
  569. CONST
  570.                                                                 {  Bevel button text alignment values  }
  571.     kControlBevelButtonAlignTextSysDirection = 0;
  572.     kControlBevelButtonAlignTextCenter = 1;
  573.     kControlBevelButtonAlignTextFlushRight = -1;
  574.     kControlBevelButtonAlignTextFlushLeft = -2;
  575.  
  576.  
  577. TYPE
  578.     ControlButtonTextAlignment            = SInt16;
  579.  
  580. CONST
  581.                                                                 {  Bevel button text placement values  }
  582.     kControlBevelButtonPlaceSysDirection = -1;                    {  if graphic on right, then on left }
  583.     kControlBevelButtonPlaceNormally = 0;
  584.     kControlBevelButtonPlaceToRightOfGraphic = 1;
  585.     kControlBevelButtonPlaceToLeftOfGraphic = 2;
  586.     kControlBevelButtonPlaceBelowGraphic = 3;
  587.     kControlBevelButtonPlaceAboveGraphic = 4;
  588.  
  589.  
  590. TYPE
  591.     ControlButtonTextPlacement            = SInt16;
  592. { Add these variant codes to kBevelButtonSmallBevelProc to change the type of button }
  593.  
  594. CONST
  595.     kControlBevelButtonSmallBevelVariant = 0;
  596.     kControlBevelButtonNormalBevelVariant = $01;
  597.     kControlBevelButtonLargeBevelVariant = $02;
  598.     kControlBevelButtonMenuOnRight = $04;
  599.  
  600. {
  601.    Behaviors of bevel buttons. These are set up so you can add
  602.    them together with the content types.
  603. }
  604.     kControlBehaviorPushbutton    = 0;
  605.     kControlBehaviorToggles        = $0100;
  606.     kControlBehaviorSticky        = $0200;
  607.     kControlBehaviorMultiValueMenu = $4000;                        {  only makes sense when a menu is attached. }
  608.     kControlBehaviorOffsetContents = $8000;
  609.  
  610. { Behaviors for 1.0.1 or later }
  611.     kControlBehaviorCommandMenu    = $2000;                        {  menu holds commands, not choices. Overrides multi-value bit. }
  612.  
  613. {  Content types supported by bevel buttons *and* image wells }
  614.     kControlContentTextOnly        = 0;
  615.     kControlContentIconSuiteRes    = 1;
  616.     kControlContentCIconRes        = 2;
  617.     kControlContentPictRes        = 3;
  618.     kControlContentIconSuiteHandle = 129;
  619.     kControlContentCIconHandle    = 130;
  620.     kControlContentPictHandle    = 131;
  621.     kControlContentIconRef        = 132;
  622.  
  623.  
  624. TYPE
  625.     ControlContentType                    = SInt16;
  626. { Data tags supported by the bevel button controls }
  627.  
  628. CONST
  629.     kControlBevelButtonContentTag = 'cont';                        {  ButtonContentInfo }
  630.     kControlBevelButtonTransformTag = 'tran';                    {  IconTransformType }
  631.     kControlBevelButtonTextAlignTag = 'tali';                    {  ButtonTextAlignment }
  632.     kControlBevelButtonTextOffsetTag = 'toff';                    {  SInt16 }
  633.     kControlBevelButtonGraphicAlignTag = 'gali';                {  ButtonGraphicAlignment }
  634.     kControlBevelButtonGraphicOffsetTag = 'goff';                {  Point }
  635.     kControlBevelButtonTextPlaceTag = 'tplc';                    {  ButtonTextPlacement }
  636.     kControlBevelButtonMenuValueTag = 'mval';                    {  SInt16 }
  637.     kControlBevelButtonMenuHandleTag = 'mhnd';                    {  MenuHandle }
  638.     kControlBevelButtonCenterPopupGlyphTag = 'pglc';            {  Boolean: true = center, false = bottom right }
  639.  
  640. { These are tags in 1.0.1 or later }
  641.     kControlBevelButtonLastMenuTag = 'lmnu';                    {  SInt16: menuID of last menu item selected from }
  642.     kControlBevelButtonMenuDelayTag = 'mdly';                    {  SInt32: ticks to delay before menu appears }
  643.  
  644. { Structure to pass into bevel buttons and image wells to set/get content type }
  645.  
  646. TYPE
  647.     ControlButtonContentInfoPtr = ^ControlButtonContentInfo;
  648.     ControlButtonContentInfo = RECORD
  649.         contentType:            ControlContentType;
  650.         CASE INTEGER OF
  651.         0: (
  652.             resID:                SInt16;
  653.             );
  654.         1: (
  655.             cIconHandle:        CIconHandle;
  656.             );
  657.         2: (
  658.             iconSuite:            Handle;
  659.             );
  660.         3: (
  661.             iconRef:            Handle;
  662.             );
  663.         4: (
  664.             picture:            PicHandle;
  665.             );
  666.     END;
  667.  
  668. {——————————————————————————————————————————————————————————————————————————————————————}
  669. {    • SLIDER (CDEF 3)                                                                    }
  670. {——————————————————————————————————————————————————————————————————————————————————————}
  671. {    There are several variants that control the behavior of the slider control. Any        }
  672. {    combination of the following three constants can be added to the basic CDEF ID        }
  673. {    (kSliderProc).                                                                        }
  674. {                                                                                        }
  675. {    Variants:                                                                            }
  676. {                                                                                        }
  677. {        kSliderLiveFeedback         Slider does not use "ghosted" indicator when tracking.    }
  678. {                                ActionProc is called (set via SetControlAction) as the    }
  679. {                                indicator is dragged. The value is updated so that the    }
  680. {                                actionproc can adjust some other property based on the    }
  681. {                                value each time the action proc is called. If no action    }
  682. {                                proc is installed, it reverts to the ghost indicator.    }
  683. {                                                                                        }
  684. {        kSliderHasTickMarks         Slider is drawn with 'tick marks'. The control            }
  685. {                                rectangle must be large enough to accomidate the tick    }
  686. {                                marks.                                                    }
  687. {                                                                                        }
  688. {        kSliderReverseDirection    Slider thumb points in opposite direction than normal.    }
  689. {                                If the slider is vertical, the thumb will point to the    }
  690. {                                left, if the slider is horizontal, the thumb will point    }
  691. {                                upwards.                                                }
  692. {                                                                                        }
  693. {        kSliderNonDirectional    This option overrides the kSliderReverseDirection and    }
  694. {                                kSliderHasTickMarks variants. It creates an indicator    }
  695. {                                which is rectangular and doesn't point in any direction    }
  696. {                                like the normal indicator does.                            }
  697.  
  698. CONST
  699.                                                                 {  Slider proc IDs  }
  700.     kControlSliderProc            = 48;
  701.     kControlSliderLiveFeedback    = $01;
  702.     kControlSliderHasTickMarks    = $02;
  703.     kControlSliderReverseDirection = $04;
  704.     kControlSliderNonDirectional = $08;
  705.  
  706.  
  707. {——————————————————————————————————————————————————————————————————————————————————————}
  708. {    • DISCLOSURE TRIANGLE (CDEF 4)                                                        }
  709. {——————————————————————————————————————————————————————————————————————————————————————}
  710. {    This control can be used as either left or right facing. It can also handle its own    }
  711. {    tracking if you wish. This means that when the 'autotoggle' variant is used, if the    }
  712. {    user clicks the control, it's state will change automatically from open to closed    }
  713. {    and vice-versa depending on its initial state. After a successful call to Track-    }
  714. {     Control, you can just check the current value to see what state it was switched to.    }
  715.                                                                 {  Triangle proc IDs  }
  716.     kControlTriangleProc        = 64;
  717.     kControlTriangleLeftFacingProc = 65;
  718.     kControlTriangleAutoToggleProc = 66;
  719.     kControlTriangleLeftFacingAutoToggleProc = 67;
  720.  
  721.                                                                 {  Tagged data supported by disclosure triangles  }
  722.     kControlTriangleLastValueTag = 'last';                        {  SInt16 }
  723.  
  724. {——————————————————————————————————————————————————————————————————————————————————————}
  725. {    • PROGRESS INDICATOR (CDEF 5)                                                        }
  726. {——————————————————————————————————————————————————————————————————————————————————————}
  727. {    This CDEF implements both determinate and indeterminate progress bars. To switch,     }
  728. {    just use SetControlData to set the indeterminate flag to make it indeterminate call    }
  729. {    IdleControls to step thru the animation. IdleControls should be called at least        }
  730. {    once during your event loop.                                                        }
  731. {                                                                                        }
  732.                                                                 {  Progress Bar proc IDs  }
  733.     kControlProgressBarProc        = 80;
  734.  
  735.                                                                 {  Tagged data supported by progress bars  }
  736.     kControlProgressBarIndeterminateTag = 'inde';                {  Boolean }
  737.  
  738. {——————————————————————————————————————————————————————————————————————————————————————}
  739. {    • LITTLE ARROWS (CDEF 6)                                                            }
  740. {——————————————————————————————————————————————————————————————————————————————————————}
  741. {     This control implements the little up and down arrows you'd see in the Memory        }
  742. {    control panel for adjusting the cache size.                                         }
  743.                                                                 {  Little Arrows proc IDs  }
  744.     kControlLittleArrowsProc    = 96;
  745.  
  746. {——————————————————————————————————————————————————————————————————————————————————————}
  747. {    • CHASING ARROWS (CDEF 7)                                                            }
  748. {——————————————————————————————————————————————————————————————————————————————————————}
  749. {    To animate this control, make sure to call IdleControls repeatedly.                    }
  750. {                                                                                        }
  751.                                                                 {  Chasing Arrows proc IDs  }
  752.     kControlChasingArrowsProc    = 112;
  753.  
  754. {——————————————————————————————————————————————————————————————————————————————————————}
  755. {    • TABS (CDEF 8)                                                                        }
  756. {——————————————————————————————————————————————————————————————————————————————————————}
  757. {    Tabs use an auxiliary resource (tab#) to hold tab information such as the tab name    }
  758. {    and an icon suite ID for each tab.                                                    }
  759. {                                                                                        }
  760. {    The ID of the tab# resource that you wish to associate with a tab control should     }
  761. {    be passed in as the Value parameter of the control. If you are using GetNewControl, }
  762. {    then the Value slot in the CNTL resource should have the ID of the 'tab#' resource    }
  763. {    on creation.                                                                        }
  764. {                                                                                        }
  765. {    Passing zero in for the tab# resource tells the control not to read in a tab# res.    }
  766. {    You can then use SetControlMaximum to add tabs, followed by a call to SetControlData}
  767. {    with the kControlTabInfoTag, passing in a pointer to a ControlTabInfoRec. This sets    }
  768. {     the name and optionally an icon for a tab.                                            }
  769.                                                                 {  Tabs proc IDs  }
  770.     kControlTabLargeProc        = 128;                            {  Large tab size, north facing     }
  771.     kControlTabSmallProc        = 129;                            {  Small tab size, north facing     }
  772.     kControlTabLargeNorthProc    = 128;                            {  Large tab size, north facing     }
  773.     kControlTabSmallNorthProc    = 129;                            {  Small tab size, north facing     }
  774.     kControlTabLargeSouthProc    = 130;                            {  Large tab size, south facing     }
  775.     kControlTabSmallSouthProc    = 131;                            {  Small tab size, south facing     }
  776.     kControlTabLargeEastProc    = 132;                            {  Large tab size, east facing     }
  777.     kControlTabSmallEastProc    = 133;                            {  Small tab size, east facing     }
  778.     kControlTabLargeWestProc    = 134;                            {  Large tab size, west facing     }
  779.     kControlTabSmallWestProc    = 135;                            {  Small tab size, west facing     }
  780.  
  781.                                                                 {  Tagged data supported by progress bars  }
  782.     kControlTabContentRectTag    = 'rect';                        {  Rect }
  783.     kControlTabEnabledFlagTag    = 'enab';                        {  Boolean }
  784.     kControlTabFontStyleTag        = 'font';                        {  ControlFontStyleRec }
  785.  
  786. { New tags in 1.0.1 or later }
  787.     kControlTabInfoTag            = 'tabi';                        {  ControlTabInfoRec }
  788.  
  789.     kControlTabInfoVersionZero    = 0;
  790.  
  791.  
  792. TYPE
  793.     ControlTabInfoRecPtr = ^ControlTabInfoRec;
  794.     ControlTabInfoRec = RECORD
  795.         version:                SInt16;                                    {  version of this structure. }
  796.         iconSuiteID:            SInt16;                                    {  icon suite to use. Zero indicates no icon }
  797.         name:                    Str255;                                    {  name to be displayed on the tab }
  798.     END;
  799.  
  800. {——————————————————————————————————————————————————————————————————————————————————————}
  801. {    • VISUAL SEPARATOR (CDEF 9)                                                            }
  802. {——————————————————————————————————————————————————————————————————————————————————————}
  803. {    Separator lines determine their orientation (horizontal or vertical) automatically    }
  804. {    based on the relative height and width of their contrlRect.                            }
  805.  
  806. CONST
  807.                                                                 {  Visual separator proc IDs  }
  808.     kControlSeparatorLineProc    = 144;
  809.  
  810.  
  811. {——————————————————————————————————————————————————————————————————————————————————————}
  812. {    • GROUP BOX (CDEF 10)                                                                }
  813. {——————————————————————————————————————————————————————————————————————————————————————}
  814. {    The group box CDEF can be use in several ways. It can have no title, a text title,     }
  815. {    a check box as the title, or a popup button as a title. There are two versions of     }
  816. {    group boxes, primary and secondary, which look slightly different.                    }
  817.                                                                 {  Group Box proc IDs  }
  818.     kControlGroupBoxTextTitleProc = 160;
  819.     kControlGroupBoxCheckBoxProc = 161;
  820.     kControlGroupBoxPopupButtonProc = 162;
  821.     kControlGroupBoxSecondaryTextTitleProc = 164;
  822.     kControlGroupBoxSecondaryCheckBoxProc = 165;
  823.     kControlGroupBoxSecondaryPopupButtonProc = 166;
  824.  
  825.                                                                 {  Tagged data supported by group box  }
  826.     kControlGroupBoxMenuHandleTag = 'mhan';                        {  MenuHandle (popup title only) }
  827.     kControlGroupBoxFontStyleTag = 'font';                        {  ControlFontStyleRec }
  828.  
  829. {——————————————————————————————————————————————————————————————————————————————————————}
  830. {    • IMAGE WELL (CDEF 11)                                                                }
  831. {——————————————————————————————————————————————————————————————————————————————————————}
  832. {    Image Wells allow you to control the content type (pict/icon/etc.) shown in the     }
  833. {    well.                                                                                }
  834. {                                                                                        }
  835. {    This is made possible by overloading the Min and Value parameters for the control.    }
  836. {                                                                                        }
  837. {    Parameter                    What Goes Here                                            }
  838. {    ———————————————————            ——————————————————————————————————————————————————        }
  839. {    Min                            content type (see constants for bevel buttons)            }
  840. {    Value                        Resource ID of content type, if resource-based.            }
  841. {                                                                                        }
  842. {                                                                                        }
  843. {    Handle-based Content                                                                }
  844. {    ————————————————————                                                                }
  845. {    You can create your control and then set the content to an existing handle to an    }
  846. {    icon suite, etc. using the macros below. Please keep in mind that resource-based    }
  847. {    content is owned by the control, handle-based content is owned by you. The CDEF will}
  848. {    not try to dispose of handle-based content. If you are changing the content type of    }
  849. {    the button on the fly, you must make sure that if you are replacing a handle-        }
  850. {    based content with a resource-based content to properly dispose of the handle,        }
  851. {    else a memory leak will ensue.                                                        }
  852. {                                                                                        }
  853.                                                                 {  Image Well proc IDs  }
  854.     kControlImageWellProc        = 176;
  855.  
  856.                                                                 {  Tagged data supported by image wells  }
  857.     kControlImageWellContentTag    = 'cont';                        {  ButtonContentInfo }
  858.     kControlImageWellTransformTag = 'tran';                        {  IconTransformType }
  859.  
  860. {——————————————————————————————————————————————————————————————————————————————————————}
  861. {    • POPUP ARROW (CDEF 12)                                                                }
  862. {——————————————————————————————————————————————————————————————————————————————————————}
  863. {    The popup arrow CDEF is used to draw the small arrow normally associated with a     }
  864. {    popup control. The arrow can point in four directions, and a small or large version }
  865. {    can be used. This control is provided to allow clients to draw the arrow in a         }
  866. {    normalized fashion which will take advantage of themes automatically.                }
  867. {                                                                                        }
  868.                                                                 {  Popup Arrow proc IDs  }
  869.     kControlPopupArrowEastProc    = 192;
  870.     kControlPopupArrowWestProc    = 193;
  871.     kControlPopupArrowNorthProc    = 194;
  872.     kControlPopupArrowSouthProc    = 195;
  873.     kControlPopupArrowSmallEastProc = 196;
  874.     kControlPopupArrowSmallWestProc = 197;
  875.     kControlPopupArrowSmallNorthProc = 198;
  876.     kControlPopupArrowSmallSouthProc = 199;
  877.  
  878. {——————————————————————————————————————————————————————————————————————————————————————}
  879. {    • PLACARD (CDEF 14)                                                                    }
  880. {——————————————————————————————————————————————————————————————————————————————————————}
  881.                                                                 {  Placard proc IDs  }
  882.     kControlPlacardProc            = 224;
  883.  
  884. {——————————————————————————————————————————————————————————————————————————————————————}
  885. {    • CLOCK (CDEF 15)                                                                    }
  886. {——————————————————————————————————————————————————————————————————————————————————————}
  887. {     NOTE:    You can specify more options in the Value paramter when creating the clock.    }
  888. {            See below.                                                                    }
  889.                                                                 {  Clock proc IDs  }
  890.     kControlClockTimeProc        = 240;
  891.     kControlClockTimeSecondsProc = 241;
  892.     kControlClockDateProc        = 242;
  893.     kControlClockMonthYearProc    = 243;
  894.  
  895. {——————————————————————————————————————————————————————————————————————————————————————}
  896. {     These flags can be passed into 'value' field on creation of the control.            }
  897. {     Value is set to 0 after control is created.                                            }
  898. {                                                                                        }
  899. {    The kClockIsLive value tells the clock to automatically update on idle (clock will    }
  900. {    have the current time). This flag is only valid when the kClockIsDisplayOnly flag    }
  901. {    is set.                                                                                }
  902. {——————————————————————————————————————————————————————————————————————————————————————}
  903.     kControlClockNoFlags        = 0;
  904.     kControlClockIsDisplayOnly    = 1;
  905.     kControlClockIsLive            = 2;
  906.  
  907.                                                                 {  Tagged data supported by clocks  }
  908.     kControlClockLongDateTag    = 'date';                        {  LongDateRec }
  909.     kControlClockFontStyleTag    = 'font';                        {  ControlFontStyleRec }
  910.  
  911. {——————————————————————————————————————————————————————————————————————————————————————}
  912. {    • USER PANE (CDEF 16)                                                                }
  913. {——————————————————————————————————————————————————————————————————————————————————————}
  914.                                                                 {  User Pane proc IDs  }
  915.     kControlUserPaneProc        = 256;
  916.  
  917. { Tagged data supported by user panes }
  918. { Currently, they are all proc ptrs for doing things like drawing and hit testing, etc. }
  919.     kControlUserItemDrawProcTag    = 'uidp';                        {  UserItemUPP }
  920.     kControlUserPaneDrawProcTag    = 'draw';                        {  ControlUserPaneDrawingUPP }
  921.     kControlUserPaneHitTestProcTag = 'hitt';                    {  ControlUserPaneHitTestUPP }
  922.     kControlUserPaneTrackingProcTag = 'trak';                    {  ControlUserPaneTrackingUPP }
  923.     kControlUserPaneIdleProcTag    = 'idle';                        {  ControlUserPaneIdleUPP }
  924.     kControlUserPaneKeyDownProcTag = 'keyd';                    {  ControlUserPaneKeyDownUPP }
  925.     kControlUserPaneActivateProcTag = 'acti';                    {  ControlUserPaneActivateUPP }
  926.     kControlUserPaneFocusProcTag = 'foci';                        {  ControlUserPaneFocusUPP }
  927.     kControlUserPaneBackgroundProcTag = 'back';                    {  ControlUserPaneBackgroundUPP }
  928.  
  929.  
  930. TYPE
  931. {$IFC TYPED_FUNCTION_POINTERS}
  932.     ControlUserPaneDrawProcPtr = PROCEDURE(control: ControlHandle; part: SInt16);
  933. {$ELSEC}
  934.     ControlUserPaneDrawProcPtr = ProcPtr;
  935. {$ENDC}
  936.  
  937. {$IFC TYPED_FUNCTION_POINTERS}
  938.     ControlUserPaneHitTestProcPtr = FUNCTION(control: ControlHandle; where: Point): ControlPartCode;
  939. {$ELSEC}
  940.     ControlUserPaneHitTestProcPtr = ProcPtr;
  941. {$ENDC}
  942.  
  943. {$IFC TYPED_FUNCTION_POINTERS}
  944.     ControlUserPaneTrackingProcPtr = FUNCTION(control: ControlHandle; startPt: Point; actionProc: ControlActionUPP): ControlPartCode;
  945. {$ELSEC}
  946.     ControlUserPaneTrackingProcPtr = ProcPtr;
  947. {$ENDC}
  948.  
  949. {$IFC TYPED_FUNCTION_POINTERS}
  950.     ControlUserPaneIdleProcPtr = PROCEDURE(control: ControlHandle);
  951. {$ELSEC}
  952.     ControlUserPaneIdleProcPtr = ProcPtr;
  953. {$ENDC}
  954.  
  955. {$IFC TYPED_FUNCTION_POINTERS}
  956.     ControlUserPaneKeyDownProcPtr = FUNCTION(control: ControlHandle; keyCode: SInt16; charCode: SInt16; modifiers: SInt16): ControlPartCode;
  957. {$ELSEC}
  958.     ControlUserPaneKeyDownProcPtr = ProcPtr;
  959. {$ENDC}
  960.  
  961. {$IFC TYPED_FUNCTION_POINTERS}
  962.     ControlUserPaneActivateProcPtr = PROCEDURE(control: ControlHandle; activating: BOOLEAN);
  963. {$ELSEC}
  964.     ControlUserPaneActivateProcPtr = ProcPtr;
  965. {$ENDC}
  966.  
  967. {$IFC TYPED_FUNCTION_POINTERS}
  968.     ControlUserPaneFocusProcPtr = FUNCTION(control: ControlHandle; action: ControlFocusPart): ControlPartCode;
  969. {$ELSEC}
  970.     ControlUserPaneFocusProcPtr = ProcPtr;
  971. {$ENDC}
  972.  
  973. {$IFC TYPED_FUNCTION_POINTERS}
  974.     ControlUserPaneBackgroundProcPtr = PROCEDURE(control: ControlHandle; info: ControlBackgroundPtr);
  975. {$ELSEC}
  976.     ControlUserPaneBackgroundProcPtr = ProcPtr;
  977. {$ENDC}
  978.  
  979.     ControlUserPaneDrawUPP = UniversalProcPtr;
  980.     ControlUserPaneHitTestUPP = UniversalProcPtr;
  981.     ControlUserPaneTrackingUPP = UniversalProcPtr;
  982.     ControlUserPaneIdleUPP = UniversalProcPtr;
  983.     ControlUserPaneKeyDownUPP = UniversalProcPtr;
  984.     ControlUserPaneActivateUPP = UniversalProcPtr;
  985.     ControlUserPaneFocusUPP = UniversalProcPtr;
  986.     ControlUserPaneBackgroundUPP = UniversalProcPtr;
  987.  
  988. CONST
  989.     uppControlUserPaneDrawProcInfo = $000002C0;
  990.     uppControlUserPaneHitTestProcInfo = $000003E0;
  991.     uppControlUserPaneTrackingProcInfo = $00000FE0;
  992.     uppControlUserPaneIdleProcInfo = $000000C0;
  993.     uppControlUserPaneKeyDownProcInfo = $00002AE0;
  994.     uppControlUserPaneActivateProcInfo = $000001C0;
  995.     uppControlUserPaneFocusProcInfo = $000002E0;
  996.     uppControlUserPaneBackgroundProcInfo = $000003C0;
  997.  
  998. FUNCTION NewControlUserPaneDrawProc(userRoutine: ControlUserPaneDrawProcPtr): ControlUserPaneDrawUPP;
  999.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1000.     INLINE $2E9F;
  1001.     {$ENDC}
  1002.  
  1003. FUNCTION NewControlUserPaneHitTestProc(userRoutine: ControlUserPaneHitTestProcPtr): ControlUserPaneHitTestUPP;
  1004.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1005.     INLINE $2E9F;
  1006.     {$ENDC}
  1007.  
  1008. FUNCTION NewControlUserPaneTrackingProc(userRoutine: ControlUserPaneTrackingProcPtr): ControlUserPaneTrackingUPP;
  1009.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1010.     INLINE $2E9F;
  1011.     {$ENDC}
  1012.  
  1013. FUNCTION NewControlUserPaneIdleProc(userRoutine: ControlUserPaneIdleProcPtr): ControlUserPaneIdleUPP;
  1014.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1015.     INLINE $2E9F;
  1016.     {$ENDC}
  1017.  
  1018. FUNCTION NewControlUserPaneKeyDownProc(userRoutine: ControlUserPaneKeyDownProcPtr): ControlUserPaneKeyDownUPP;
  1019.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1020.     INLINE $2E9F;
  1021.     {$ENDC}
  1022.  
  1023. FUNCTION NewControlUserPaneActivateProc(userRoutine: ControlUserPaneActivateProcPtr): ControlUserPaneActivateUPP;
  1024.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1025.     INLINE $2E9F;
  1026.     {$ENDC}
  1027.  
  1028. FUNCTION NewControlUserPaneFocusProc(userRoutine: ControlUserPaneFocusProcPtr): ControlUserPaneFocusUPP;
  1029.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1030.     INLINE $2E9F;
  1031.     {$ENDC}
  1032.  
  1033. FUNCTION NewControlUserPaneBackgroundProc(userRoutine: ControlUserPaneBackgroundProcPtr): ControlUserPaneBackgroundUPP;
  1034.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1035.     INLINE $2E9F;
  1036.     {$ENDC}
  1037.  
  1038. PROCEDURE CallControlUserPaneDrawProc(control: ControlHandle; part: SInt16; userRoutine: ControlUserPaneDrawUPP);
  1039.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1040.     INLINE $205F, $4E90;
  1041.     {$ENDC}
  1042.  
  1043. FUNCTION CallControlUserPaneHitTestProc(control: ControlHandle; where: Point; userRoutine: ControlUserPaneHitTestUPP): ControlPartCode;
  1044.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1045.     INLINE $205F, $4E90;
  1046.     {$ENDC}
  1047.  
  1048. FUNCTION CallControlUserPaneTrackingProc(control: ControlHandle; startPt: Point; actionProc: ControlActionUPP; userRoutine: ControlUserPaneTrackingUPP): ControlPartCode;
  1049.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1050.     INLINE $205F, $4E90;
  1051.     {$ENDC}
  1052.  
  1053. PROCEDURE CallControlUserPaneIdleProc(control: ControlHandle; userRoutine: ControlUserPaneIdleUPP);
  1054.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1055.     INLINE $205F, $4E90;
  1056.     {$ENDC}
  1057.  
  1058. FUNCTION CallControlUserPaneKeyDownProc(control: ControlHandle; keyCode: SInt16; charCode: SInt16; modifiers: SInt16; userRoutine: ControlUserPaneKeyDownUPP): ControlPartCode;
  1059.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1060.     INLINE $205F, $4E90;
  1061.     {$ENDC}
  1062.  
  1063. PROCEDURE CallControlUserPaneActivateProc(control: ControlHandle; activating: BOOLEAN; userRoutine: ControlUserPaneActivateUPP);
  1064.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1065.     INLINE $205F, $4E90;
  1066.     {$ENDC}
  1067.  
  1068. FUNCTION CallControlUserPaneFocusProc(control: ControlHandle; action: ControlFocusPart; userRoutine: ControlUserPaneFocusUPP): ControlPartCode;
  1069.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1070.     INLINE $205F, $4E90;
  1071.     {$ENDC}
  1072.  
  1073. PROCEDURE CallControlUserPaneBackgroundProc(control: ControlHandle; info: ControlBackgroundPtr; userRoutine: ControlUserPaneBackgroundUPP);
  1074.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1075.     INLINE $205F, $4E90;
  1076.     {$ENDC}
  1077. {
  1078.   ——————————————————————————————————————————————————————————————————————————————————————————
  1079.       • EDIT TEXT (CDEF 17)
  1080.   ——————————————————————————————————————————————————————————————————————————————————————————
  1081. }
  1082.  
  1083. CONST
  1084.                                                                 {  Edit Text proc IDs  }
  1085.     kControlEditTextProc        = 272;
  1086.     kControlEditTextDialogProc    = 273;
  1087.     kControlEditTextPasswordProc = 274;
  1088.     kControlEditTextDialogPasswordProc = 275;
  1089.  
  1090.                                                                 {  Tagged data supported by edit text  }
  1091.     kControlEditTextStyleTag    = 'font';                        {  ControlFontStyleRec }
  1092.     kControlEditTextTextTag        = 'text';                        {  Buffer of chars - you supply the buffer }
  1093.     kControlEditTextTEHandleTag    = 'than';                        {  The TEHandle of the text edit record }
  1094.     kControlEditTextKeyFilterTag = 'fltr';
  1095.     kControlEditTextSelectionTag = 'sele';                        {  EditTextSelectionRec }
  1096.     kControlEditTextPasswordTag    = 'pass';                        {  The clear text password text }
  1097.  
  1098.  
  1099. TYPE
  1100.     ControlEditTextSelectionRecPtr = ^ControlEditTextSelectionRec;
  1101.     ControlEditTextSelectionRec = RECORD
  1102.                                                                         {  Structure for getting the edit text selection  }
  1103.         selStart:                SInt16;
  1104.         selEnd:                    SInt16;
  1105.     END;
  1106.  
  1107.     ControlEditTextSelectionPtr            = ^ControlEditTextSelectionRec;
  1108. {——————————————————————————————————————————————————————————————————————————————————————}
  1109. {    • STATIC TEXT (CDEF 18)                                                                }
  1110. {——————————————————————————————————————————————————————————————————————————————————————}
  1111. { Static Text proc IDs }
  1112.  
  1113. CONST
  1114.     kControlStaticTextProc        = 288;
  1115.  
  1116. { Tagged data supported by static text }
  1117.     kControlStaticTextStyleTag    = 'font';                        {  ControlFontStyleRec }
  1118.     kControlStaticTextTextTag    = 'text';                        {  Copy of text }
  1119.     kControlStaticTextTextHeightTag = 'thei';                    {  SInt16 }
  1120.  
  1121. {——————————————————————————————————————————————————————————————————————————————————————}
  1122. {    • PICTURE CONTROL (CDEF 19)                                                            }
  1123. {——————————————————————————————————————————————————————————————————————————————————————}
  1124. {    Value parameter should contain the ID of the picture you wish to display when        }
  1125. {    creating controls of this type. If you don't want the control tracked at all, use     }
  1126. {    the 'no track' variant.                                                                }
  1127.                                                                 {  Picture control proc IDs  }
  1128.     kControlPictureProc            = 304;
  1129.     kControlPictureNoTrackProc    = 305;                            {  immediately returns kControlPicturePart }
  1130.  
  1131. {——————————————————————————————————————————————————————————————————————————————————————}
  1132. {    • ICON CONTROL (CDEF 20)                                                            }
  1133. {——————————————————————————————————————————————————————————————————————————————————————}
  1134. {    Value parameter should contain the ID of the ICON or cicn you wish to display when    }
  1135. {    creating controls of this type. If you don't want the control tracked at all, use     }
  1136. {    the 'no track' variant.                                                                }
  1137. { Icon control proc IDs }
  1138.     kControlIconProc            = 320;
  1139.     kControlIconNoTrackProc        = 321;                            {  immediately returns kControlIconPart }
  1140.     kControlIconSuiteProc        = 322;
  1141.     kControlIconSuiteNoTrackProc = 323;                            {  immediately returns kControlIconPart }
  1142.  
  1143. { Tagged data supported by icon controls }
  1144.     kControlIconTransformTag    = 'trfm';                        {  IconTransformType }
  1145.     kControlIconAlignmentTag    = 'algn';                        {  IconAlignmentType }
  1146.  
  1147. {——————————————————————————————————————————————————————————————————————————————————————}
  1148. {    • WINDOW HEADER (CDEF 21)                                                            }
  1149. {——————————————————————————————————————————————————————————————————————————————————————}
  1150.                                                                 {  Window Header proc IDs  }
  1151.     kControlWindowHeaderProc    = 336;                            {  normal header }
  1152.     kControlWindowListViewHeaderProc = 337;                        {  variant for list views - no bottom line }
  1153.  
  1154. {——————————————————————————————————————————————————————————————————————————————————————}
  1155. {    • LIST BOX (CDEF 22)                                                                }
  1156. {——————————————————————————————————————————————————————————————————————————————————————}
  1157. {    Lists use an auxiliary resource to define their format. The resource type used is     }
  1158. {    'ldes' and a definition for it can be found in Appearance.r. The resource ID for     }
  1159. {    the ldes is passed in the 'value' parameter when creating the control. You may pass }
  1160. {    zero in value. This tells the List Box control to not use a resource. The list will }
  1161. {    be created with default values, and will use the standard LDEF (0). You can change    }
  1162. {    the list by getting the list handle. You can set the LDEF to use by using the tag    }
  1163. {    below (kControlListBoxLDEFTag)                                                        }
  1164.                                                                 {  List Box proc IDs  }
  1165.     kControlListBoxProc            = 352;
  1166.     kControlListBoxAutoSizeProc    = 353;
  1167.  
  1168.                                                                 {  Tagged data supported by list box  }
  1169.     kControlListBoxListHandleTag = 'lhan';                        {  ListHandle }
  1170.     kControlListBoxKeyFilterTag    = 'fltr';                        {  ControlKeyFilterUPP }
  1171.     kControlListBoxFontStyleTag    = 'font';                        {  ControlFontStyleRec }
  1172.  
  1173. { New tags in 1.0.1 or later }
  1174.     kControlListBoxDoubleClickTag = 'dblc';                        {  Boolean. Was last click a double-click? }
  1175.     kControlListBoxLDEFTag        = 'ldef';                        {  SInt16. ID of LDEF to use.  }
  1176.  
  1177. {——————————————————————————————————————————————————————————————————————————————————————}
  1178. {    • PUSH BUTTON (CDEF 23)                                                                }
  1179. {——————————————————————————————————————————————————————————————————————————————————————}
  1180. {    The new standard checkbox and radio button controls support a "mixed" value that    }
  1181. {    indicates that the current setting contains a mixed set of on and off values. The     }
  1182. {    control value used to display this indication is defined in Controls.h:                }
  1183. {                                                                                        }
  1184. {        kControlCheckBoxMixedValue = 2                                                    }
  1185. {                                                                                        }
  1186. {    Two new variants of the standard pushbutton have been added to the standard control    }
  1187. {    suite that draw a color icon next to the control title. One variant draws the icon    }
  1188. {    on the left side, the other draws it on the right side (when the system justifica-    }
  1189. {    tion is right to left, these are reversed).                                            }
  1190. {                                                                                        }
  1191. {    When either of the icon pushbuttons are created, the contrlMax field of the control }
  1192. {    record is used to determine the ID of the 'cicn' resource drawn in the pushbutton.    }
  1193. {                                                                                        }
  1194. {    In addition, a push button can now be told to draw with a default outline using the    }
  1195. {    SetControlData routine with the kPushButtonDefaultTag below.                        }
  1196. {                                                                                        }
  1197.                                                                 {  Theme Push Button/Check Box/Radio Button proc IDs  }
  1198.     kControlPushButtonProc        = 368;
  1199.     kControlCheckBoxProc        = 369;
  1200.     kControlRadioButtonProc        = 370;
  1201.     kControlPushButLeftIconProc    = 374;                            {  Standard pushbutton with left-side icon }
  1202.     kControlPushButRightIconProc = 375;                            {  Standard pushbutton with right-side icon }
  1203.  
  1204.                                                                 {  Tagged data supported by standard buttons  }
  1205.     kControlPushButtonDefaultTag = 'dflt';                        {  default ring flag }
  1206.  
  1207. {——————————————————————————————————————————————————————————————————————————————————————}
  1208. {    • SCROLL BAR (CDEF 24)                                                                }
  1209. {——————————————————————————————————————————————————————————————————————————————————————}
  1210. {    This is the new Appearance scroll bar.                                                }
  1211. {                                                                                        }
  1212.                                                                 {  Theme Scroll Bar proc IDs  }
  1213.     kControlScrollBarProc        = 384;                            {  normal scroll bar }
  1214.     kControlScrollBarLiveProc    = 386;                            {  live scrolling variant }
  1215.  
  1216. {——————————————————————————————————————————————————————————————————————————————————————}
  1217. {    • POPUP BUTTON (CDEF 25)                                                            }
  1218. {——————————————————————————————————————————————————————————————————————————————————————}
  1219. {    This is the new Appearance Popup Button. It takes the same variants and does the     }
  1220. {    same overloading as the previous popup menu control. There are some differences:    }
  1221. {                                                                                        }
  1222. {    Passing in a menu ID of -12345 causes the popup not to try and get the menu from a    }
  1223. {    resource. Instead, you can build the menu and later stuff the menuhandle field in     }
  1224. {    the popup data information.                                                            }
  1225. {                                                                                        }
  1226. {    You can pass -1 in the Max parameter to have the control calculate the width of the    }
  1227. {    title on its own instead of guessing and then tweaking to get it right. It adds the    }
  1228. {    appropriate amount of space between the title and the popup.                        }
  1229. {                                                                                        }
  1230.                                                                 {  Theme Popup Button proc IDs  }
  1231.     kControlPopupButtonProc        = 400;
  1232.     kControlPopupFixedWidthVariant = $01;
  1233.     kControlPopupVariableWidthVariant = $02;
  1234.     kControlPopupUseAddResMenuVariant = $04;
  1235.     kControlPopupUseWFontVariant = $08;                            {  kControlUsesOwningWindowsFontVariant }
  1236.  
  1237. { These tags are available in 1.0.1 or later of Appearance }
  1238.     kControlPopupButtonMenuHandleTag = 'mhan';                    {  MenuHandle }
  1239.     kControlPopupButtonMenuIDTag = 'mnid';                        {  SInt16 }
  1240.  
  1241. {——————————————————————————————————————————————————————————————————————————————————————}
  1242. {    • RADIO GROUP (CDEF 26)                                                                }
  1243. {——————————————————————————————————————————————————————————————————————————————————————}
  1244. {    This control implements a radio group. It is an embedding control and can therefore    }
  1245. {     only be used when a control hierarchy is established for its owning window. You        }
  1246. {    should only embed radio buttons within it. As radio buttons are embedded into it,    }
  1247. {    the group sets up its value, min, and max to represent the number of embedded items.}
  1248. {    The current value of the control is the index of the sub-control that is the current}
  1249. {    'on' radio button. To get the current radio button control handle, you can use the    }
  1250. {    control manager call GetIndSubControl, passing in the value of the radio group.        }
  1251. {                                                                                        }
  1252. {    NOTE: This control is only available with Appearance 1.0.1.                            }
  1253.     kControlRadioGroupProc        = 416;
  1254.  
  1255.  
  1256. {   —— end of stuff only available with Appearance 1.0 and later }
  1257.  
  1258.  
  1259. {——————————————————————————————————————————————————————————————————————————————————————}
  1260. {    • Control Variants                                                                    }
  1261. {——————————————————————————————————————————————————————————————————————————————————————}
  1262.  
  1263. TYPE
  1264.     ControlVariant                        = SInt16;
  1265.  
  1266. CONST
  1267.     kControlNoVariant            = 0;                            {  No variant }
  1268.     kControlUsesOwningWindowsFontVariant = $08;                    {  Control uses owning windows font to display text }
  1269.  
  1270. {——————————————————————————————————————————————————————————————————————————————————————}
  1271. {    • Control Part Codes                                                                }
  1272. {——————————————————————————————————————————————————————————————————————————————————————}
  1273.     kControlNoPart                = 0;
  1274.     kControlLabelPart            = 1;
  1275.     kControlMenuPart            = 2;
  1276.     kControlTrianglePart        = 4;
  1277.     kControlEditTextPart        = 5;                            {  Appearance 1.0 and later }
  1278.     kControlPicturePart            = 6;                            {  Appearance 1.0 and later }
  1279.     kControlIconPart            = 7;                            {  Appearance 1.0 and later }
  1280.     kControlClockPart            = 8;                            {  Appearance 1.0 and later }
  1281.     kControlListBoxPart            = 24;                            {  Appearance 1.0 and later }
  1282.     kControlListBoxDoubleClickPart = 25;                        {  Appearance 1.0 and later }
  1283.     kControlImageWellPart        = 26;                            {  Appearance 1.0 and later }
  1284.     kControlRadioGroupPart        = 27;                            {  Appearance 1.1 and later }
  1285.     kControlButtonPart            = 10;
  1286.     kControlCheckBoxPart        = 11;
  1287.     kControlRadioButtonPart        = 11;
  1288.     kControlUpButtonPart        = 20;
  1289.     kControlDownButtonPart        = 21;
  1290.     kControlPageUpPart            = 22;
  1291.     kControlPageDownPart        = 23;
  1292.     kControlIndicatorPart        = 129;
  1293.     kControlDisabledPart        = 254;
  1294.     kControlInactivePart        = 255;
  1295.  
  1296. {——————————————————————————————————————————————————————————————————————————————————————}
  1297. {    • Check Box Values                                                                    }
  1298. {——————————————————————————————————————————————————————————————————————————————————————}
  1299.     kControlCheckBoxUncheckedValue = 0;
  1300.     kControlCheckBoxCheckedValue = 1;
  1301.     kControlCheckBoxMixedValue    = 2;
  1302.  
  1303. {——————————————————————————————————————————————————————————————————————————————————————}
  1304. {    • Radio Button Values                                                                }
  1305. {——————————————————————————————————————————————————————————————————————————————————————}
  1306.     kControlRadioButtonUncheckedValue = 0;
  1307.     kControlRadioButtonCheckedValue = 1;
  1308.     kControlRadioButtonMixedValue = 2;
  1309.  
  1310. {——————————————————————————————————————————————————————————————————————————————————————}
  1311. {    • Pop-Up Menu Control Constants                                                        }
  1312. {——————————————————————————————————————————————————————————————————————————————————————}
  1313. {  Variant codes for the System 7 pop-up menu }
  1314.     popupFixedWidth                = $01;
  1315.     popupVariableWidth            = $02;
  1316.     popupUseAddResMenu            = $04;
  1317.     popupUseWFont                = $08;
  1318.  
  1319. {  Menu label styles for the System 7 pop-up menu  }
  1320.     popupTitleBold                = $0100;
  1321.     popupTitleItalic            = $0200;
  1322.     popupTitleUnderline            = $0400;
  1323.     popupTitleOutline            = $0800;
  1324.     popupTitleShadow            = $1000;
  1325.     popupTitleCondense            = $2000;
  1326.     popupTitleExtend            = $4000;
  1327.     popupTitleNoStyle            = $8000;
  1328.  
  1329. {  Menu label justifications for the System 7 pop-up menu }
  1330.     popupTitleLeftJust            = $00000000;
  1331.     popupTitleCenterJust        = $00000001;
  1332.     popupTitleRightJust            = $000000FF;
  1333.  
  1334. {——————————————————————————————————————————————————————————————————————————————————————}
  1335. {     • DragGrayRgn Constatns                                                                }
  1336. {                                                                                        }
  1337. {   For DragGrayRgnUPP used in TrackControl()                                             }
  1338. {——————————————————————————————————————————————————————————————————————————————————————}
  1339.     noConstraint                = 0;
  1340.     hAxisOnly                    = 1;
  1341.     vAxisOnly                    = 2;
  1342.  
  1343. {——————————————————————————————————————————————————————————————————————————————————————}
  1344. {    • Control Creation/Deletion                                                            }
  1345. {——————————————————————————————————————————————————————————————————————————————————————}
  1346. FUNCTION NewControl(owningWindow: WindowPtr; {CONST}VAR boundsRect: Rect; controlTitle: Str255; initiallyVisible: BOOLEAN; initialValue: SInt16; minimumValue: SInt16; maximumValue: SInt16; procID: SInt16; controlReference: SInt32): ControlHandle;
  1347.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1348.     INLINE $A954;
  1349.     {$ENDC}
  1350. FUNCTION GetNewControl(resourceID: SInt16; owningWindow: WindowPtr): ControlHandle;
  1351.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1352.     INLINE $A9BE;
  1353.     {$ENDC}
  1354. PROCEDURE DisposeControl(theControl: ControlHandle);
  1355.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1356.     INLINE $A955;
  1357.     {$ENDC}
  1358. PROCEDURE KillControls(theWindow: WindowPtr);
  1359.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1360.     INLINE $A956;
  1361.     {$ENDC}
  1362. {——————————————————————————————————————————————————————————————————————————————————————}
  1363. {    • Control Visible State                                                                }
  1364. {——————————————————————————————————————————————————————————————————————————————————————}
  1365. PROCEDURE HiliteControl(theControl: ControlHandle; hiliteState: ControlPartCode);
  1366.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1367.     INLINE $A95D;
  1368.     {$ENDC}
  1369. PROCEDURE ShowControl(theControl: ControlHandle);
  1370.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1371.     INLINE $A957;
  1372.     {$ENDC}
  1373. PROCEDURE HideControl(theControl: ControlHandle);
  1374.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1375.     INLINE $A958;
  1376.     {$ENDC}
  1377.  
  1378. {  following state routines available only with Appearance 1.0 and later }
  1379. FUNCTION IsControlActive(inControl: ControlHandle): BOOLEAN;
  1380.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1381.     INLINE $303C, $0005, $AA73;
  1382.     {$ENDC}
  1383. FUNCTION IsControlVisible(inControl: ControlHandle): BOOLEAN;
  1384.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1385.     INLINE $303C, $0006, $AA73;
  1386.     {$ENDC}
  1387. FUNCTION ActivateControl(inControl: ControlHandle): OSErr;
  1388.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1389.     INLINE $303C, $0007, $AA73;
  1390.     {$ENDC}
  1391. FUNCTION DeactivateControl(inControl: ControlHandle): OSErr;
  1392.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1393.     INLINE $303C, $0008, $AA73;
  1394.     {$ENDC}
  1395. FUNCTION SetControlVisibility(inControl: ControlHandle; inIsVisible: BOOLEAN; inDoDraw: BOOLEAN): OSErr;
  1396.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1397.     INLINE $303C, $001E, $AA73;
  1398.     {$ENDC}
  1399.  
  1400. {——————————————————————————————————————————————————————————————————————————————————————}
  1401. {    • Control Imaging                                                                    }
  1402. {——————————————————————————————————————————————————————————————————————————————————————}
  1403. PROCEDURE DrawControls(theWindow: WindowPtr);
  1404.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1405.     INLINE $A969;
  1406.     {$ENDC}
  1407. PROCEDURE Draw1Control(theControl: ControlHandle);
  1408.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1409.     INLINE $A96D;
  1410.     {$ENDC}
  1411.  
  1412. PROCEDURE UpdateControls(theWindow: WindowPtr; updateRegion: RgnHandle);
  1413.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1414.     INLINE $A953;
  1415.     {$ENDC}
  1416.  
  1417. {  following imaging routines available only with Appearance 1.0 and later }
  1418. FUNCTION GetBestControlRect(inControl: ControlHandle; VAR outRect: Rect; VAR outBaseLineOffset: SInt16): OSErr;
  1419.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1420.     INLINE $303C, $001B, $AA73;
  1421.     {$ENDC}
  1422. FUNCTION SetControlFontStyle(inControl: ControlHandle; {CONST}VAR inStyle: ControlFontStyleRec): OSErr;
  1423.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1424.     INLINE $303C, $001C, $AA73;
  1425.     {$ENDC}
  1426. PROCEDURE DrawControlInCurrentPort(inControl: ControlHandle);
  1427.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1428.     INLINE $303C, $0018, $AA73;
  1429.     {$ENDC}
  1430. FUNCTION SetUpControlBackground(inControl: ControlHandle; inDepth: SInt16; inIsColorDevice: BOOLEAN): OSErr;
  1431.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1432.     INLINE $303C, $001D, $AA73;
  1433.     {$ENDC}
  1434. {  SetUpControlTextColor is available in Appearance 1.1 or later. }
  1435. FUNCTION SetUpControlTextColor(inControl: ControlHandle; inDepth: SInt16; inIsColorDevice: BOOLEAN): OSErr;
  1436.  
  1437. {——————————————————————————————————————————————————————————————————————————————————————}
  1438. {    • Control Mousing                                                                    }
  1439. {——————————————————————————————————————————————————————————————————————————————————————}
  1440. {
  1441.     NOTE ON CONTROL ACTION PROCS
  1442.     
  1443.     When using the TrackControl() call when tracking an indicator, the actionProc parameter
  1444.     (type ControlActionUPP) should be replaced by a parameter of type DragGrayRgnUPP
  1445.     (see Quickdraw.h).
  1446.     
  1447.     If, however, you are using the live feedback variants of scroll bars or sliders, you
  1448.     can pass a ControlActionUPP in when tracking the indicator as well. This functionality
  1449.     is available in Appearance 1.0 or later.
  1450. }
  1451. FUNCTION TrackControl(theControl: ControlHandle; startPoint: Point; actionProc: ControlActionUPP): ControlPartCode;
  1452.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1453.     INLINE $A968;
  1454.     {$ENDC}
  1455. PROCEDURE DragControl(theControl: ControlHandle; startPoint: Point; {CONST}VAR limitRect: Rect; {CONST}VAR slopRect: Rect; axis: DragConstraint);
  1456.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1457.     INLINE $A967;
  1458.     {$ENDC}
  1459. FUNCTION TestControl(theControl: ControlHandle; testPoint: Point): ControlPartCode;
  1460.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1461.     INLINE $A966;
  1462.     {$ENDC}
  1463. FUNCTION FindControl(testPoint: Point; theWindow: WindowPtr; VAR theControl: ControlHandle): ControlPartCode;
  1464.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1465.     INLINE $A96C;
  1466.     {$ENDC}
  1467. { The following mousing routines available only with Appearance 1.0 and later    }
  1468. {                                                                                }
  1469. { FindControlUnderMouse is preferrable to TrackControl when running under        }
  1470. { Appearance 1.0 as you can pass in modifiers, which some of the new controls    }
  1471. { use, such as edit text and list boxes.                                        }
  1472. FUNCTION FindControlUnderMouse(inWhere: Point; inWindow: WindowPtr; VAR outPart: SInt16): ControlHandle;
  1473.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1474.     INLINE $303C, $0009, $AA73;
  1475.     {$ENDC}
  1476. FUNCTION HandleControlClick(inControl: ControlHandle; inWhere: Point; inModifiers: SInt16; inAction: ControlActionUPP): SInt16;
  1477.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1478.     INLINE $303C, $000A, $AA73;
  1479.     {$ENDC}
  1480.  
  1481.  
  1482.  
  1483. {——————————————————————————————————————————————————————————————————————————————————————}
  1484. {    • Control Events (available only with Appearance 1.0 and later)                        }
  1485. {——————————————————————————————————————————————————————————————————————————————————————}
  1486. FUNCTION HandleControlKey(inControl: ControlHandle; inKeyCode: SInt16; inCharCode: SInt16; inModifiers: SInt16): SInt16;
  1487.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1488.     INLINE $303C, $000B, $AA73;
  1489.     {$ENDC}
  1490. PROCEDURE IdleControls(inWindow: WindowPtr);
  1491.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1492.     INLINE $303C, $000C, $AA73;
  1493.     {$ENDC}
  1494.  
  1495.  
  1496. {——————————————————————————————————————————————————————————————————————————————————————}
  1497. {    • Control Positioning                                                                }
  1498. {——————————————————————————————————————————————————————————————————————————————————————}
  1499. PROCEDURE MoveControl(theControl: ControlHandle; h: SInt16; v: SInt16);
  1500.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1501.     INLINE $A959;
  1502.     {$ENDC}
  1503. PROCEDURE SizeControl(theControl: ControlHandle; w: SInt16; h: SInt16);
  1504.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1505.     INLINE $A95C;
  1506.     {$ENDC}
  1507. {——————————————————————————————————————————————————————————————————————————————————————}
  1508. {    • Control Title                                                                        }
  1509. {——————————————————————————————————————————————————————————————————————————————————————}
  1510. PROCEDURE SetControlTitle(theControl: ControlHandle; title: Str255);
  1511.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1512.     INLINE $A95F;
  1513.     {$ENDC}
  1514. PROCEDURE GetControlTitle(theControl: ControlHandle; VAR title: Str255);
  1515.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1516.     INLINE $A95E;
  1517.     {$ENDC}
  1518. {——————————————————————————————————————————————————————————————————————————————————————}
  1519. {    • Control Value                                                                        }
  1520. {——————————————————————————————————————————————————————————————————————————————————————}
  1521. FUNCTION GetControlValue(theControl: ControlHandle): SInt16;
  1522.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1523.     INLINE $A960;
  1524.     {$ENDC}
  1525. PROCEDURE SetControlValue(theControl: ControlHandle; newValue: SInt16);
  1526.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1527.     INLINE $A963;
  1528.     {$ENDC}
  1529. FUNCTION GetControlMinimum(theControl: ControlHandle): SInt16;
  1530.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1531.     INLINE $A961;
  1532.     {$ENDC}
  1533. PROCEDURE SetControlMinimum(theControl: ControlHandle; newMinimum: SInt16);
  1534.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1535.     INLINE $A964;
  1536.     {$ENDC}
  1537. FUNCTION GetControlMaximum(theControl: ControlHandle): SInt16;
  1538.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1539.     INLINE $A962;
  1540.     {$ENDC}
  1541. PROCEDURE SetControlMaximum(theControl: ControlHandle; newMaximum: SInt16);
  1542.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1543.     INLINE $A965;
  1544.     {$ENDC}
  1545. {——————————————————————————————————————————————————————————————————————————————————————}
  1546. {    • Control Variant                                                                    }
  1547. {——————————————————————————————————————————————————————————————————————————————————————}
  1548. FUNCTION GetControlVariant(theControl: ControlHandle): ControlVariant;
  1549.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1550.     INLINE $A809;
  1551.     {$ENDC}
  1552. {——————————————————————————————————————————————————————————————————————————————————————}
  1553. {    • Control Action                                                                    }
  1554. {——————————————————————————————————————————————————————————————————————————————————————}
  1555. PROCEDURE SetControlAction(theControl: ControlHandle; actionProc: ControlActionUPP);
  1556.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1557.     INLINE $A96B;
  1558.     {$ENDC}
  1559. FUNCTION GetControlAction(theControl: ControlHandle): ControlActionUPP;
  1560.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1561.     INLINE $A96A;
  1562.     {$ENDC}
  1563. {——————————————————————————————————————————————————————————————————————————————————————}
  1564. { • Control Accessors                                                                    }
  1565. {——————————————————————————————————————————————————————————————————————————————————————}
  1566. PROCEDURE SetControlReference(theControl: ControlHandle; data: SInt32);
  1567.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1568.     INLINE $A95B;
  1569.     {$ENDC}
  1570. FUNCTION GetControlReference(theControl: ControlHandle): SInt32;
  1571.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1572.     INLINE $A95A;
  1573.     {$ENDC}
  1574. FUNCTION GetAuxiliaryControlRecord(theControl: ControlHandle; VAR acHndl: AuxCtlHandle): BOOLEAN;
  1575.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1576.     INLINE $AA44;
  1577.     {$ENDC}
  1578. PROCEDURE SetControlColor(theControl: ControlHandle; newColorTable: CCTabHandle);
  1579.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1580.     INLINE $AA43;
  1581.     {$ENDC}
  1582. {——————————————————————————————————————————————————————————————————————————————————————}
  1583. {    • HELPERS (available only with Appearance 1.0 and later)                            }
  1584. {                                                                                        }
  1585. { These routines are available only thru the shared library/glue                        }
  1586. { Bevel button routines                                                                }
  1587. {——————————————————————————————————————————————————————————————————————————————————————}
  1588.  
  1589. FUNCTION GetBevelButtonMenuValue(inButton: ControlHandle; VAR outValue: SInt16): OSErr;
  1590. FUNCTION SetBevelButtonMenuValue(inButton: ControlHandle; inValue: SInt16): OSErr;
  1591. FUNCTION GetBevelButtonMenuHandle(inButton: ControlHandle; VAR outHandle: MenuHandle): OSErr;
  1592. FUNCTION GetBevelButtonContentInfo(inButton: ControlHandle; outContent: ControlButtonContentInfoPtr): OSErr;
  1593. FUNCTION SetBevelButtonContentInfo(inButton: ControlHandle; inContent: ControlButtonContentInfoPtr): OSErr;
  1594. FUNCTION SetBevelButtonTransform(inButton: ControlHandle; transform: IconTransformType): OSErr;
  1595. FUNCTION SetBevelButtonGraphicAlignment(inButton: ControlHandle; inAlign: ControlButtonGraphicAlignment; inHOffset: SInt16; inVOffset: SInt16): OSErr;
  1596. FUNCTION SetBevelButtonTextAlignment(inButton: ControlHandle; inAlign: ControlButtonTextAlignment; inHOffset: SInt16): OSErr;
  1597. FUNCTION SetBevelButtonTextPlacement(inButton: ControlHandle; inWhere: ControlButtonTextPlacement): OSErr;
  1598. {  Image well routines }
  1599.  
  1600. FUNCTION GetImageWellContentInfo(inButton: ControlHandle; outContent: ControlButtonContentInfoPtr): OSErr;
  1601. FUNCTION SetImageWellContentInfo(inButton: ControlHandle; inContent: ControlButtonContentInfoPtr): OSErr;
  1602. FUNCTION SetImageWellTransform(inButton: ControlHandle; inTransform: IconTransformType): OSErr;
  1603. {  Tab routines }
  1604.  
  1605. FUNCTION GetTabContentRect(inTabControl: ControlHandle; VAR outContentRect: Rect): OSErr;
  1606. FUNCTION SetTabEnabled(inTabControl: ControlHandle; inTabToHilite: SInt16; inEnabled: BOOLEAN): OSErr;
  1607. {  Disclosure triangles }
  1608.  
  1609. FUNCTION SetDisclosureTriangleLastValue(inTabControl: ControlHandle; inValue: SInt16): OSErr;
  1610. {——————————————————————————————————————————————————————————————————————————————————————}
  1611. {    • Control Hierarchy (Appearance 1.0 and later only)                                    }
  1612. {——————————————————————————————————————————————————————————————————————————————————————}
  1613. FUNCTION SendControlMessage(inControl: ControlHandle; inMessage: SInt16; inParam: SInt32): SInt32;
  1614.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1615.     INLINE $303C, $FFFE, $AA73;
  1616.     {$ENDC}
  1617. FUNCTION DumpControlHierarchy(inWindow: WindowPtr; {CONST}VAR inDumpFile: FSSpec): OSErr;
  1618.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1619.     INLINE $303C, $FFFF, $AA73;
  1620.     {$ENDC}
  1621. FUNCTION CreateRootControl(inWindow: WindowPtr; VAR outControl: ControlHandle): OSErr;
  1622.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1623.     INLINE $303C, $0001, $AA73;
  1624.     {$ENDC}
  1625. FUNCTION GetRootControl(inWindow: WindowPtr; VAR outControl: ControlHandle): OSErr;
  1626.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1627.     INLINE $303C, $0002, $AA73;
  1628.     {$ENDC}
  1629. FUNCTION EmbedControl(inControl: ControlHandle; inContainer: ControlHandle): OSErr;
  1630.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1631.     INLINE $303C, $0003, $AA73;
  1632.     {$ENDC}
  1633. FUNCTION AutoEmbedControl(inControl: ControlHandle; inWindow: WindowPtr): OSErr;
  1634.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1635.     INLINE $303C, $0004, $AA73;
  1636.     {$ENDC}
  1637. FUNCTION GetSuperControl(inControl: ControlHandle; VAR outParent: ControlHandle): OSErr;
  1638.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1639.     INLINE $303C, $0015, $AA73;
  1640.     {$ENDC}
  1641. FUNCTION CountSubControls(inControl: ControlHandle; VAR outNumChildren: SInt16): OSErr;
  1642.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1643.     INLINE $303C, $0016, $AA73;
  1644.     {$ENDC}
  1645. FUNCTION GetIndexedSubControl(inControl: ControlHandle; inIndex: SInt16; VAR outSubControl: ControlHandle): OSErr;
  1646.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1647.     INLINE $303C, $0017, $AA73;
  1648.     {$ENDC}
  1649. FUNCTION SetControlSupervisor(inControl: ControlHandle; inBoss: ControlHandle): OSErr;
  1650.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1651.     INLINE $303C, $001A, $AA73;
  1652.     {$ENDC}
  1653.  
  1654.  
  1655. {——————————————————————————————————————————————————————————————————————————————————————}
  1656. {    • Keyboard Focus (available only with Appearance 1.0 and later)                        }
  1657. {——————————————————————————————————————————————————————————————————————————————————————}
  1658. FUNCTION GetKeyboardFocus(inWindow: WindowPtr; VAR outControl: ControlHandle): OSErr;
  1659.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1660.     INLINE $303C, $000D, $AA73;
  1661.     {$ENDC}
  1662. FUNCTION SetKeyboardFocus(inWindow: WindowPtr; inControl: ControlHandle; inPart: ControlFocusPart): OSErr;
  1663.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1664.     INLINE $303C, $000E, $AA73;
  1665.     {$ENDC}
  1666. FUNCTION AdvanceKeyboardFocus(inWindow: WindowPtr): OSErr;
  1667.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1668.     INLINE $303C, $000F, $AA73;
  1669.     {$ENDC}
  1670. FUNCTION ReverseKeyboardFocus(inWindow: WindowPtr): OSErr;
  1671.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1672.     INLINE $303C, $0010, $AA73;
  1673.     {$ENDC}
  1674. FUNCTION ClearKeyboardFocus(inWindow: WindowPtr): OSErr;
  1675.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1676.     INLINE $303C, $0019, $AA73;
  1677.     {$ENDC}
  1678.  
  1679.  
  1680. {——————————————————————————————————————————————————————————————————————————————————————}
  1681. {    • Control Data (available only with Appearance 1.0 and later)                        }
  1682. {——————————————————————————————————————————————————————————————————————————————————————}
  1683.  
  1684. FUNCTION GetControlFeatures(inControl: ControlHandle; VAR outFeatures: UInt32): OSErr;
  1685.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1686.     INLINE $303C, $0011, $AA73;
  1687.     {$ENDC}
  1688. FUNCTION SetControlData(inControl: ControlHandle; inPart: ControlPartCode; inTagName: ResType; inSize: Size; inData: Ptr): OSErr;
  1689.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1690.     INLINE $303C, $0012, $AA73;
  1691.     {$ENDC}
  1692. FUNCTION GetControlData(inControl: ControlHandle; inPart: ControlPartCode; inTagName: ResType; inBufferSize: Size; inBuffer: Ptr; VAR outActualSize: Size): OSErr;
  1693.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1694.     INLINE $303C, $0013, $AA73;
  1695.     {$ENDC}
  1696. FUNCTION GetControlDataSize(inControl: ControlHandle; inPart: ControlPartCode; inTagName: ResType; VAR outMaxSize: Size): OSErr;
  1697.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1698.     INLINE $303C, $0014, $AA73;
  1699.     {$ENDC}
  1700.  
  1701.  
  1702.  
  1703. {——————————————————————————————————————————————————————————————————————————————————————}
  1704. {    • ‘CDEF’ messages                                                                    }
  1705. {——————————————————————————————————————————————————————————————————————————————————————}
  1706.  
  1707. TYPE
  1708.     ControlDefProcMessage                = SInt16;
  1709.  
  1710. CONST
  1711.     drawCntl                    = 0;
  1712.     testCntl                    = 1;
  1713.     calcCRgns                    = 2;
  1714.     initCntl                    = 3;
  1715.     dispCntl                    = 4;
  1716.     posCntl                        = 5;
  1717.     thumbCntl                    = 6;
  1718.     dragCntl                    = 7;
  1719.     autoTrack                    = 8;
  1720.     calcCntlRgn                    = 10;
  1721.     calcThumbRgn                = 11;
  1722.     drawThumbOutline            = 12;
  1723.  
  1724. {——————————————————————————————————————————————————————————————————————————————————————}
  1725. {    • ‘CDEF’ entrypoint                                                                    }
  1726. {——————————————————————————————————————————————————————————————————————————————————————}
  1727.  
  1728. TYPE
  1729. {$IFC TYPED_FUNCTION_POINTERS}
  1730.     ControlDefProcPtr = FUNCTION(varCode: SInt16; theControl: ControlHandle; message: ControlDefProcMessage; param: SInt32): SInt32;
  1731. {$ELSEC}
  1732.     ControlDefProcPtr = ProcPtr;
  1733. {$ENDC}
  1734.  
  1735.     ControlDefUPP = UniversalProcPtr;
  1736.  
  1737. CONST
  1738.     uppControlDefProcInfo = $00003BB0;
  1739.  
  1740. FUNCTION NewControlDefProc(userRoutine: ControlDefProcPtr): ControlDefUPP;
  1741.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1742.     INLINE $2E9F;
  1743.     {$ENDC}
  1744.  
  1745. FUNCTION CallControlDefProc(varCode: SInt16; theControl: ControlHandle; message: ControlDefProcMessage; param: SInt32; userRoutine: ControlDefUPP): SInt32;
  1746.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1747.     INLINE $205F, $4E90;
  1748.     {$ENDC}
  1749. {——————————————————————————————————————————————————————————————————————————————————————}
  1750. {    • Constants for drawCntl message (passed in param)                                    }
  1751. {——————————————————————————————————————————————————————————————————————————————————————}
  1752.  
  1753. CONST
  1754.     kDrawControlEntireControl    = 0;
  1755.     kDrawControlIndicatorOnly    = 129;
  1756.  
  1757. {——————————————————————————————————————————————————————————————————————————————————————}
  1758. {    • Constants for dragCntl message (passed in param)                                    }
  1759. {——————————————————————————————————————————————————————————————————————————————————————}
  1760.     kDragControlEntireControl    = 0;
  1761.     kDragControlIndicator        = 1;
  1762.  
  1763. {——————————————————————————————————————————————————————————————————————————————————————}
  1764. {    • Drag Constraint Structure for thumbCntl message (passed in param)                    }
  1765. {——————————————————————————————————————————————————————————————————————————————————————}
  1766.  
  1767. TYPE
  1768.     IndicatorDragConstraintPtr = ^IndicatorDragConstraint;
  1769.     IndicatorDragConstraint = RECORD
  1770.         limitRect:                Rect;
  1771.         slopRect:                Rect;
  1772.         axis:                    DragConstraint;
  1773.     END;
  1774.  
  1775.     IndicatorDragConstraintHandle        = ^IndicatorDragConstraintPtr;
  1776.  
  1777.  
  1778. {$IFC NOT TARGET_OS_MAC }
  1779. {——————————————————————————————————————————————————————————————————————————————————————}
  1780. {    • QuickTime 3.0 Win32/unix notification    mechanism                                    }
  1781. {——————————————————————————————————————————————————————————————————————————————————————}
  1782. {  Proc used to notify window that something happened to the control }
  1783. {$IFC TYPED_FUNCTION_POINTERS}
  1784.     ControlNotificationProcPtr = PROCEDURE(theWindow: WindowPtr; theControl: ControlHandle; notification: ControlNotification; param1: LONGINT; param2: LONGINT); C;
  1785. {$ELSEC}
  1786.     ControlNotificationProcPtr = ProcPtr;
  1787. {$ENDC}
  1788.  
  1789. {
  1790.    Proc used to prefilter events before handled by control.  A client of a control calls
  1791.    CTRLSetPreFilterProc() to have the control call this proc before handling the event.
  1792.    If the proc returns TRUE, the control can go ahead and handle the event.
  1793. }
  1794. {$IFC TYPED_FUNCTION_POINTERS}
  1795.     PreFilterEventProc = FUNCTION(theControl: ControlHandle; VAR theEvent: EventRecord): BOOLEAN; C;
  1796. {$ELSEC}
  1797.     PreFilterEventProc = ProcPtr;
  1798. {$ENDC}
  1799.  
  1800. FUNCTION GetControlComponentInstance(theControl: ControlHandle): LONGINT; C;
  1801. FUNCTION GetControlHandleFromCookie(cookie: LONGINT): ControlHandle; C;
  1802. PROCEDURE SetControlDefProc(resID: INTEGER; proc: ControlDefProcPtr); C;
  1803. {$ENDC}
  1804.  
  1805. {$IFC OLDROUTINENAMES }
  1806. {——————————————————————————————————————————————————————————————————————————————————————}
  1807. {    • OLDROUTINENAMES                                                                    }
  1808. {——————————————————————————————————————————————————————————————————————————————————————}
  1809. {  Variants applicable to all controls (at least ones with text) }
  1810.  
  1811. CONST
  1812.     useWFont                    = $08;
  1813.  
  1814.     inLabel                        = 1;
  1815.     inMenu                        = 2;
  1816.     inTriangle                    = 4;
  1817.     inButton                    = 10;
  1818.     inCheckBox                    = 11;
  1819.     inUpButton                    = 20;
  1820.     inDownButton                = 21;
  1821.     inPageUp                    = 22;
  1822.     inPageDown                    = 23;
  1823.     inThumb                        = 129;
  1824.  
  1825.     kNoHiliteControlPart        = 0;
  1826.     kInLabelControlPart            = 1;
  1827.     kInMenuControlPart            = 2;
  1828.     kInTriangleControlPart        = 4;
  1829.     kInButtonControlPart        = 10;
  1830.     kInCheckBoxControlPart        = 11;
  1831.     kInUpButtonControlPart        = 20;
  1832.     kInDownButtonControlPart    = 21;
  1833.     kInPageUpControlPart        = 22;
  1834.     kInPageDownControlPart        = 23;
  1835.     kInIndicatorControlPart        = 129;
  1836.     kReservedControlPart        = 254;
  1837.     kControlInactiveControlPart    = 255;
  1838.  
  1839. PROCEDURE SetCTitle(theControl: ControlHandle; title: Str255);
  1840.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1841.     INLINE $A95F;
  1842.     {$ENDC}
  1843. PROCEDURE GetCTitle(theControl: ControlHandle; VAR title: Str255);
  1844.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1845.     INLINE $A95E;
  1846.     {$ENDC}
  1847. PROCEDURE UpdtControl(theWindow: WindowPtr; updateRgn: RgnHandle);
  1848.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1849.     INLINE $A953;
  1850.     {$ENDC}
  1851. PROCEDURE SetCtlValue(theControl: ControlHandle; theValue: INTEGER);
  1852.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1853.     INLINE $A963;
  1854.     {$ENDC}
  1855. FUNCTION GetCtlValue(theControl: ControlHandle): INTEGER;
  1856.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1857.     INLINE $A960;
  1858.     {$ENDC}
  1859. PROCEDURE SetCtlMin(theControl: ControlHandle; minValue: INTEGER);
  1860.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1861.     INLINE $A964;
  1862.     {$ENDC}
  1863. FUNCTION GetCtlMin(theControl: ControlHandle): INTEGER;
  1864.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1865.     INLINE $A961;
  1866.     {$ENDC}
  1867. PROCEDURE SetCtlMax(theControl: ControlHandle; maxValue: INTEGER);
  1868.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1869.     INLINE $A965;
  1870.     {$ENDC}
  1871. FUNCTION GetCtlMax(theControl: ControlHandle): INTEGER;
  1872.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1873.     INLINE $A962;
  1874.     {$ENDC}
  1875. PROCEDURE SetCRefCon(theControl: ControlHandle; data: LONGINT);
  1876.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1877.     INLINE $A95B;
  1878.     {$ENDC}
  1879. FUNCTION GetCRefCon(theControl: ControlHandle): LONGINT;
  1880.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1881.     INLINE $A95A;
  1882.     {$ENDC}
  1883. PROCEDURE SetCtlAction(theControl: ControlHandle; actionProc: ControlActionUPP);
  1884.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1885.     INLINE $A96B;
  1886.     {$ENDC}
  1887. FUNCTION GetCtlAction(theControl: ControlHandle): ControlActionUPP;
  1888.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1889.     INLINE $A96A;
  1890.     {$ENDC}
  1891. PROCEDURE SetCtlColor(theControl: ControlHandle; newColorTable: CCTabHandle);
  1892.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1893.     INLINE $AA43;
  1894.     {$ENDC}
  1895. FUNCTION GetCVariant(theControl: ControlHandle): INTEGER;
  1896.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  1897.     INLINE $A809;
  1898.     {$ENDC}
  1899. {$ENDC}  {OLDROUTINENAMES}
  1900.  
  1901.  
  1902.  
  1903.  
  1904.  
  1905.  
  1906. {$ALIGN RESET}
  1907. {$POP}
  1908.  
  1909. {$SETC UsingIncludes := ControlsIncludes}
  1910.  
  1911. {$ENDC} {__CONTROLS__}
  1912.  
  1913. {$IFC NOT UsingIncludes}
  1914.  END.
  1915. {$ENDC}
  1916.